! ***************************************
FINISH
/CLEAR
/FILN, E62
/TITLE, THERMAL ANALYSIS OF SKIRT SUPPORTING ZONE OF HYDROGENATION REACTOR
/UNITS,SI
/DEV,FONT,1,COURIER*NEW,400,0,-13,0,0,,,
/DEV,FONT,2,COURIER*NEW,400,0,-14,0,0,,,
! ********* 趨*********
PI=3.1415926                            ! Բ
TONGT_DI=2813                           ! Ͳھ
TONGT_T=87                              ! Ͳں
TONGQ_H=615                             ! Ͳ嵽ȹ֧дĸ߶
FENGT_T=52                              ! ͷں
FENGT_DI=2833                           ! ͷھ 
XYHR1=20                                ! ڲԲ뾶
XYHR2=20                                ! Բ뾶
H1=1500                                 ! ȹ߶
H2=1000                                 ! Ͳ峤
XQUNZ_H=70                              ! HζͼȹӲֱ߸߶
QUNZ_T=22                               ! ȹں
YQUNZ_H=690                             ! ͷȹ䱣²λ                                     
FENGT_DO=FENGT_DI+2*FENGT_T             ! ͷ⾶
BAOWEN_T=180                            ! ²
KTT=35*1E-3                             ! ͲĴϵ
KBW=0.134*1E-3                          ! ²㴫ϵ
HAIR=12*1E-6                            ! ϵ
HYT=1000*1E-6                           ! ϶ϵ
TAIR=20                                 ! ¶
TYT=347                                 ! ¶
                                       
!****************ǰ***************************
/PREP7
ET,1,PLANE77                            ! 嵥ԪΪ8ıȵԪ
KEYOPT,1,3,1                            ! ģΪԳƽṹ
MP,KXX,1,KTT                            ! ͲĴϵ
MP,KXX,2,KBW                            ! 屣²Ĵϵ
!****************ģ***************************
!HͷӦ
K,1,0,0                                 ! ĵ
K,2,TONGT_DI/2+TONGT_T,0                ! Hζͼ϶
K,3,TONGT_DI/2,0                        ! Hζͼ϶ڲ
K,5,TONGT_DI/2+TONGT_T,-TONGQ_H         ! HζͼȹӲ
K,6,TONGT_DI/2+TONGT_T-QUNZ_T,-TONGQ_H	! HζͼȹӲڲ
K,7,KX(6)-XYHR1,-(TONGQ_H-XQUNZ_H)	! HζͼȹӲԲ

L,2,3                                   ! 
L,2,5
L,5,6
CIRCLE,7,XYHR1                          ! ȹӲԲԲ
LDELE,5,7,1,1                           ! ɾԲ

L,6,4                                   ! 
K,7,0,KY(8)                             ! ¶ؼ7ΪԲȸߵĵ
L,7,8                                   ! HζͼԲߵĸ
CIRCLE,1,FENGT_DO/2                     ! ڶӦԲ
LDELE,7,9,1,1                           ! ɾԲ

LSBL,10,6                               ! ߶
LDELE,7,,,1                             ! ɾ߶

L,8,10                                  ! ٴԲߵĸ
K,30,KX(10)-XYHR2,KY(8)-XYHR2           ! 帨ؼ
K,40,KX(8),KY(30)                       ! 帨ؼ
 	
L,40,30                                 ! ɸȷڲԲ
CIRCLE,1,FENGT_DO/2+XYHR2               ! ԲȷڲԲ
LSBL,7,12                               ! 󽻵ȷڲԲ
LDELE,13,14                             ! ɾ߶
KDELE,30                                ! ɾĹؼ
LDELE,9,11,1,1                          ! ɾ߶

CIRCLE,14,XYHR2                         ! ڲԲԲ
LDELE,7,,,1                             ! ɾĹؼ߶
LDELE,10,11,,1                          ! ɾĹؼ߶

L,1,14                                  ! ɸ
L,9,14                                  ! ɸ
K,5000,KX(14),KY(14)                    ! ٶڲԲ
LSBL,9,7                                ! ߶
LDELE,12,,,1                            ! ɾ߶

L,7,14                                  ! ɸ
LSBL,6,10                               ! ߶
LDELE,12,,,1                            ! ɾ߶
LSBL,8,7                                ! ߶
LDELE,6,,,1                             ! ɾ߶

K,1,0,0                                 ! ¶
CIRCLE,1,FENGT_DI/2                     ! ڱڵԲ
LDELE,6,8,1,1                           ! ɾ߶

K,40,KX(3),KY(7)                        ! 帨ؼ
L,3,40                                  ! ɸ
L,12,14                                 ! ɸ
LSBL,12,6                               ! ߶
LDELE,8,,,1                             ! ɾ߶

LDELE,3                                 ! ɾ߶
K,100,KX(5),KY(5)-H1                    ! ȹ߶εĹؼ
K,200,KX(6),KY(6)-H1                    ! ȹ߶εĹؼ
L,100,200                               ! ȹ߶
K,300,KX(3),KY(3)+H2                    ! Ͳ߶εĹؼ
K,400,KX(2),KY(2)+H2                    ! Ͳ߶εĹؼ
LDELE,1                                 ! ɾ߶
L,300,400                               ! Ͳ߶ 
L,300,11                                ! Ͳڱ߶
L,400,2                                 ! Ͳ߶
L,5,100                                 ! ȹ߶
L,6,200                                 ! ȹڱ߶
K,800,KX(2),KY(11)                      ! Ӧ·ؼ
K,900,KX(5),KY(4)                       ! Ӧ·ؼ
K,6000,KX(300),KY(300)-400              ! Ӧ·ؼ
K,7000,KX(400),KY(6000)                 ! Ӧ·ؼ
L,1,5000                                ! ɸ
LSBL,13,15                              ! ߶
LDELE,2                                 ! ɾ߶   
A,12,14,10,11,300,400,2,800,900,5,100,200,6,4,8,9,7     ! 

!²
K,8000,KX(400)+BAOWEN_T,KY(400)         ! Ͳλñ²ؼ
L,400,8000                              ! Ͳλñ²߶
LSEL,S,LOC,X,KX(400)                    ! ѡͲȹ߶
ADRAG,ALL,,,,,,18                       ! Ͳȹı²

K,8100,KX(8000)+100,KY(8)-YQUNZ_H       ! ͷȹ䱣²λø
K,8200,0,KY(8)-YQUNZ_H                  ! ͷȹ䱣²λø
L,8100,8200                             ! ͷȹ䱣²λø
 
K,8300,0,0                              ! ¶
CIRCLE,8300,FENGT_DO/2+BAOWEN_T         ! ɰͷ²߶εԲ
LDELE,31,33,1,1                         ! ɾ߶

LSEL,S,,,12,14,2                        ! ѡ񱻷ָ߶
LSEL,A,,,28,34,6                        ! ѡ񱻷ָ߶
LSEL,A,,,30                             ! ѡָ߶
LSBL,ALL,30                             ! ָ߶
LDELE,36,,,1                            ! ɾ߶
L,24,21                                 ! ɷͷȹ䱣²λ߶
ALLS
L,22,12                                 !  
A,12,7,9,8,4,6,21,24,22                 ! ɷͷȹ䱣² 

!****************************************
AGLUE,ALL                               ! ճ
AESIZE,ALL,10                           ! 嵥Ԫߴ
MSHKEY,0                                ! ʷ
ASEL,S,,,1                              ! ѡṹ
MAT,1                                   ! 趨
AMESH,1                                 ! ʷ
LREFINE,4,,5                            ! Բ
LREFINE,11,,5                           ! ڲԲ

ALLS
ASEL,U,,,1                              ! ȥṹ
MAT,2                                   ! 趨
AMESH,ALL                               ! ʷ
FINI 

!*******************************************
/SOLU
LSEL,S,LOC,X,KX(8000)                   ! ѡ߽߶
LSEL,A,,,37,39,2
LSEL,A,,,12
SFL,ALL,CONV,HAIR,,TAIR                 ! ʩӿ߽

LSEL,S,,,6                              ! ѡ϶߽߶
LSEL,A,,,16,17,1
SFL,ALL,CONV,HYT,,TYT                   ! ʩ϶߽
ALLS
SOLVE                                   !          
FINISH
!*******************************************
/POST1
PLNSOL,TEMP                             ! ʾ¶ȳֲ
ASEL,S,,,1,1                            ! ѡṹ
ESLA                                    ! ѡṹԪ
PLNSOL,TEMP                             ! ʾṹ¶ȳֲ
FINISH